Option Explicit
Sub I_Sample013()
    If Application.Dialogs(xlDialogPrintPreview).Show Then
    MsgBox "biwANCLXӡC"
    Else
    MsgBox "uiwAiCLC"
    End If
End Sub
